dim root
root = inputbox("input folderpath=",root,"E:\")

dim Ext:Ext = "gdo"
dim sExt
dim fso,oFolder,sFolder,folder
set fso = createobject("scripting.filesystemobject")
set oFolder = fso.getfolder(root)
set sFolder = oFolder.subfolders


'// root
call renameGdo(oFolder)

'// subfolders
for each folder in sFolder
	call renameGdo(folder)
next

sub renameGdo(selfolder)
	dim fo,freadall,s,ls
	dim oFile,oFiles
	dim filename
	set oFiles = selfolder.files
	for each ofile in oFiles
		sExt = fso.getextensionname(ofile)
		sExt = lcase(sExt)
		if sExt = Ext then
			'//remove
			set fo = fso.opentextfile(ofile,1)
			freadall = fo.readall
			fo.close
			s=split(freadall,chr(10))
			ls = ubound(s)-lbound(s)+1
			if ls=14 then
				call fso.deletefile(ofile)
			else
				filename = left(fso.getfilename(ofile),len(fso.getfilename(ofile))-4) & "-" & selfolder.name & ".gdo"
				ofile.name = filename
			end if
		end if
	next
end sub
msgbox "done"
set fso = nothing